/ Celestin Apprentice 7 / Apprentice-Release7.iso / Environments / Frontier 4.2.3 / Desktop Scripts / Count Word Files / Count Word Files.rsrc / scpt_129

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 01 04 40 00 02 00 00 | 00 6c 00 00 01 d9 00 00 |...@....|.l......|
|00000010| 02 00 00 0f 06 47 65 6e | 65 76 61 00 00 00 00 00 |.....Gen|eva.....|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 09 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 00 06 54 00 00 a4 e9 | bb de ae 75 5f 4d 00 00 |...T....|...u_M..|
|00000050| 00 23 00 00 00 4d 00 5e | 01 88 01 c2 4c 41 4e 44 |.#...M.^|....LAND|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 6c 6f 63 61 |........|....loca|
|00000080| 6c 20 28 66 6f 6c 64 65 | 72 20 3d 20 66 69 6c 65 |l (folde|r = file|
|00000090| 2e 66 6f 6c 64 65 72 46 | 72 6f 6d 50 61 74 68 20 |.folderF|romPath |
|000000a0| 28 73 79 73 74 65 6d 2e | 64 65 73 6b 73 63 72 69 |(system.|deskscri|
|000000b0| 70 74 73 2e 70 61 74 68 | 29 29 0d 6c 6f 63 61 6c |pts.path|)).local|
|000000c0| 20 28 6d 61 74 63 68 65 | 73 46 6f 75 6e 64 20 3d | (matche|sFound =|
|000000d0| 20 30 29 20 c7 6e 75 6d | 62 65 72 20 6f 66 20 57 | 0) .num|ber of W|
|000000e0| 6f 72 64 20 66 69 6c 65 | 73 20 77 65 20 66 6f 75 |ord file|s we fou|
|000000f0| 6e 64 0d 0d 66 69 6c 65 | 6c 6f 6f 70 20 28 66 20 |nd..file|loop (f |
|00000100| 69 6e 20 66 6f 6c 64 65 | 72 2c 20 69 6e 66 69 6e |in folde|r, infin|
|00000110| 69 74 79 29 0d 09 6d 73 | 67 20 28 66 69 6c 65 2e |ity)..ms|g (file.|
|00000120| 66 69 6c 65 46 72 6f 6d | 50 61 74 68 20 28 66 29 |fileFrom|Path (f)|
|00000130| 29 0d 09 69 66 20 66 69 | 6c 65 2e 63 72 65 61 74 |)..if fi|le.creat|
|00000140| 6f 72 20 28 66 29 20 3d | 3d 20 27 4d 53 57 44 27 |or (f) =|= 'MSWD'|
|00000150| 0d 09 09 6d 61 74 63 68 | 65 73 46 6f 75 6e 64 2b |...match|esFound+|
|00000160| 2b 0d 0d 6c 6f 63 61 6c | 20 28 73 29 0d 63 61 73 |+..local| (s).cas|
|00000170| 65 20 6d 61 74 63 68 65 | 73 46 6f 75 6e 64 0d 09 |e matche|sFound..|
|00000180| 30 0d 09 09 73 20 3d 20 | 22 54 68 65 72 65 20 61 |0...s = |"There a|
|00000190| 72 65 20 6e 6f 20 57 6f | 72 64 20 66 69 6c 65 73 |re no Wo|rd files|
|000001a0| 22 0d 09 31 0d 09 09 73 | 20 3d 20 22 54 68 65 72 |"..1...s| = "Ther|
|000001b0| 65 20 69 73 20 6f 6e 65 | 20 57 6f 72 64 20 66 69 |e is one| Word fi|
|000001c0| 6c 65 22 0d 65 6c 73 65 | 0d 09 73 20 3d 20 22 54 |le".else|..s = "T|
|000001d0| 68 65 72 65 20 61 72 65 | 20 22 20 2b 20 6d 61 74 |here are| " + mat|
|000001e0| 63 68 65 73 46 6f 75 6e | 64 20 2b 20 22 20 57 6f |chesFoun|d + " Wo|
|000001f0| 72 64 20 66 69 6c 65 73 | 22 0d 73 20 3d 20 73 20 |rd files|".s = s |
|00000200| 2b 20 22 20 69 6e 20 74 | 68 65 20 5c 22 22 20 2b |+ " in t|he \"" +|
|00000210| 20 28 66 69 6c 65 2e 66 | 69 6c 65 46 72 6f 6d 50 | (file.f|ileFromP|
|00000220| 61 74 68 20 28 66 6f 6c | 64 65 72 29 20 2d 20 22 |ath (fol|der) - "|
|00000230| 3a 22 29 20 2b 20 22 5c | 22 20 66 6f 6c 64 65 72 |:") + "\|" folder|
|00000240| 2e 22 0d 64 69 61 6c 6f | 67 2e 6e 6f 74 69 66 79 |.".dialo|g.notify|
|00000250| 20 28 73 29 0d 80 00 00 | 00 00 00 80 00 00 00 00 | (s)....|........|
|00000260| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|00000270| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|00000280| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|00000290| 00 80 00 00 00 00 00 80 | 00 00 00 00 00 80 00 00 |........|........|
|000002a0| 00 00 00 80 00 00 00 00 | 00 80 00 00 00 00 00 80 |........|........|
|000002b0| 00 00 00 00 00 80 00 00 | 00 00 00 80 00 00 00 00 |........|........|
|000002c0| 00                      |                         |.       |        |
+--------+-------------------------+-------------------------+--------+--------+